home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Utilities / Icons / Explode Cicn 1.1 ƒ / Source files / UCicn.p < prev   
Encoding:
Text File  |  1990-12-06  |  3.3 KB  |  104 lines  |  [TEXT/ttxt]
  1. UNIT UCicn;
  2.  
  3. INTERFACE
  4.  
  5. USES
  6.     UMacApp, Fonts, UList, UPrinting, UGridView, Errors, Resources, ToolUtils;
  7.  
  8. TYPE
  9. {==============================}
  10.     TCicnApplication = OBJECT(TApplication)
  11.         Procedure TCicnApplication.ICicnApplication;
  12.         Function TCicnApplication.DoMakeDocument(itsCmdNumber :
  13.                             CmdNumber) : TDocument; OVERRIDE;
  14.     End;
  15.  
  16. {==============================}
  17.     TCicnDocument = OBJECT(TDocument)
  18.         fSaveIcon : Boolean;
  19.         fSaveIcl4 : Boolean;
  20.         fSaveIcl8 : Boolean;
  21.         fSaveIcs : Boolean;
  22.         fSaveIcs4 : Boolean;
  23.         fSaveIcs8 : Boolean;
  24.         fCicnList    : TList;
  25.         fCicnView : TCicnView;
  26.         Procedure TCicnDocument.ICicnDocument;
  27.         Procedure TCicnDocument.DoSetupMenus; OVERRIDE;
  28.         Function  TCicnDocument.DoMenuCommand(aCmdNumber : CmdNumber) :
  29.                                                                                     TCommand; OVERRIDE;
  30.         Procedure TCicnDocument.AddCicnLast(aCicn : TCicn);
  31.         Procedure TCicnDocument.DeleteCicn(aCicn : TCicn);
  32.         Function  TCicnDocument.CicnAt(theIndex : Integer) : TCicn;
  33.         Procedure TCicnDocument.DoMakeViews(forPrinting : boolean); OVERRIDE;
  34.         Procedure TCicnDocument.ForEachCicnDo(Procedure Something(aCicn : TCicn));
  35.         Procedure TCicnDocument.Free; OVERRIDE;
  36.         Procedure TCicnDocument.FreeData; OVERRIDE;
  37.         Procedure TCicnDocument.DoNeedDiskSpace(VAR dataForkBytes, 
  38.                             rsrcForkBytes : LongInt); OVERRIDE;
  39.         Procedure TCicnDocument.DoWrite(aRefNum : integer; makingCopy :
  40.                             Boolean); OVERRIDE;
  41.         Procedure TCicnDocument.DoRead(aRefNum : integer; rsrcExists, 
  42.                             forPrinting : Boolean); OVERRIDE;
  43.         {$IFC qDebug}
  44.         Procedure TCicnDocument.Fields(Procedure DoToField(
  45.                             fieldName : Str255; fieldAddr : Ptr; fieldType :
  46.                             integer)); OVERRIDE;
  47.         {$ENDC}
  48.         End;
  49.  
  50. {==============================}
  51.     TCicnView = OBJECT(TGridView)
  52.         fCicnDocument : TCicnDocument;
  53.         Procedure TCicnView.IRes(itsDocument : TDocument; itsSuperView : TView;
  54.                                                         Var itsParams : Ptr); OVERRIDE;
  55.         Procedure TCicnView.DrawCell(aCell : GridCell; aQDRect : Rect); OVERRIDE;
  56.         {$IFC qDebug}
  57.             Procedure TCicnView.Fields(Procedure DoToField(
  58.                                 fieldName : Str255; fieldAddr : Ptr; fieldType :
  59.                                 integer)); OVERRIDE;
  60.         {$ENDC}
  61.     End;
  62.  
  63. {==============================}
  64.     TCicn = OBJECT(TObject)
  65.         fId : INTEGER;
  66.         fName : Str255;
  67.         fCicnHandle : CIconHandle;
  68.         fCicnDocument : TCicnDocument;
  69.         Procedure TCicn.ICicn(aCicnDocument : TCicnDocument);
  70.         Procedure TCicn.DrawCicn(theRect : Rect);
  71.         Procedure TCicn.RemoveOldResources(id : Integer);
  72.         Procedure TCicn.WriteResources(aRefNum : Integer);
  73.         Function TCicn.ExtractRsrc(theDepth : Integer; halfSize : Boolean) : Handle;
  74.         Function TCicn.ExtractMask(halfSize : Boolean) : Handle;
  75.         Function TCicn.ReturnBytes : LongInt;
  76.         Procedure TCicn.Free; OVERRIDE;
  77.         Procedure TCicn.ReadCicn(index : Integer);
  78.         Function TCicn.ReturnFrame : Rect;
  79.         {$IFC qDebug}
  80.             Procedure TCicn.Fields(Procedure DoToField(fieldName : Str255;
  81.                                                         fieldAddr : Ptr; fieldType : Integer)); OVERRIDE;
  82.         {$ENDC}
  83.     End;
  84.  
  85. {==============================}
  86.     TOffScreenPixMap = OBJECT(TObject)
  87.         fBits : Ptr;
  88.         fCGrafPtr : CGrafPtr;
  89.         fGDevice : GDHandle;
  90.         fSize : LongInt;
  91.  
  92.         Procedure TOffScreenPixMap.IOffScreenPixMap(theDepth : Integer);
  93.         Procedure TOffScreenPixMap.Free; OVERRIDE;
  94.  
  95.         {$IFC qDebug}
  96.             Procedure TOffScreenPixMap.Fields(Procedure DoToField(fieldName : Str255;
  97.                                                             fieldAddr : Ptr; fieldType : Integer)); OVERRIDE;
  98.         {$ENDC}
  99.     End;
  100. IMPLEMENTATION
  101.  
  102. {$I UCicn.inc1.p}
  103.  
  104. End.